home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / dev / amos / AMOSList-0998.lzh / AMOSLIST / 000024_bounce-amos-li…net@onelist.com_Wed Sep 2 05:27:32 1998.msg < prev    next >
Text File  |  1998-10-01  |  13KB  |  337 lines
  1. >From bounce-amos-list--883-mcox=access.digex.net@onelist.com  Wed Sep  2 05:27:32 1998
  2. Received: from onelist.com (pop.onelist.com [209.207.164.13])
  3.     by pony-2.mail.digex.net (8.8.8/8.8.8) with SMTP id FAA14481
  4.     for <mcox@access.digex.net>; Wed, 2 Sep 1998 05:27:31 -0400 (EDT)
  5. Received: (qmail 27258 invoked by alias); 2 Sep 1998 09:31:09 -0000
  6. Received: (qmail 27252 invoked from network); 2 Sep 1998 09:31:08 -0000
  7. Received: from unknown (HELO rhenium.btinternet.com) (194.73.73.93) by pop.onelist.com with SMTP; 2 Sep 1998 09:31:08 -0000
  8. Received: from np5gt [195.99.56.103]  by rhenium.btinternet.com with smtp (Exim 1.70 #1) id 0zE9AJ-0007hk-00; Wed, 2 Sep 1998 10:25:23 +0100
  9. Message-ID: <004401bdd653$cc275000$673863c3@np5gt>
  10. From: "John Glanville" <John.Glanville@btinternet.com>
  11. To: <amos-list@onelist.com>
  12. Date: Wed, 2 Sep 1998 10:26:41 +0100
  13. X-Priority: 3
  14. X-MSMail-Priority: Normal
  15. X-Mailer: Microsoft Outlook Express 4.72.3110.1
  16. X-MimeOLE: Produced By Microsoft MimeOLE V4.72.3110.3
  17. Mailing-List: list amos-list@onelist.com; contact http://www.onelist.com
  18. Delivered-To: mailing list amos-list@onelist.com
  19. Precedence: bulk
  20. Reply-to: amos-list@onelist.com
  21. Mime-Version: 1.0
  22. Content-Type: multipart/alternative; boundary="----=_NextPart_000_0041_01BDD65C.2CACCF60"
  23. Subject: [amos-list] I SNOW its me again!
  24. Status: O
  25. X-Status: 
  26.  
  27. From: "John Glanville" <John.Glanville@btinternet.com>
  28.  
  29. This is a multi-part message in MIME format.
  30.  
  31. ------=_NextPart_000_0041_01BDD65C.2CACCF60
  32. Content-Type: text/plain;
  33.     charset="iso-8859-1"
  34. Content-Transfer-Encoding: quoted-printable
  35.  
  36. Hey! My version don't contain wind... and it don't Use Degree either... =
  37. It seems 2 be faster!
  38.  
  39. Hide On=20
  40. Screen Open 0,320,256,8,Lowres
  41. Flash Off=20
  42. Curs Off=20
  43. Cls 0
  44.  
  45. C=3D2
  46. NU=3D100
  47. Dim X#(NU),Y#(NU),M#(NU),D#(NU),KEY#(NU),H(320),Z(NU)
  48.  
  49. For I=3D0 To NU
  50.    X#(I)=3DRnd(320)
  51.    D#(I)=3DRnd(4)-2
  52.    Z(I)=3DRnd(6)
  53. Next I
  54. Colour 1,$444
  55. Colour 2,$777
  56. Colour 3,$999
  57. Colour 4,$BBB
  58. Colour 5,$DDD
  59. Colour 6,$FFF
  60. Colour 7,$FFF
  61.  
  62. ' level of ground...=20
  63. YM=3D200
  64. ' Speed of Descent... Maximum movement down
  65. YA=3D8
  66.  
  67. Do=20
  68.    For I=3D0 To NU
  69.      =20
  70.       ' Randomablity Variable Being Used... =20
  71.       ' Lower the 980 for More Snow at a time....!  =20
  72.      =20
  73.       If KEY#(I)>980
  74.         =20
  75.          ' The Unplot.... Get Rid of the snow 2 B Updated...
  76.         =20
  77.          F Plot X#(I),Y#(I),0
  78.         =20
  79.          ' Check if X axis Movement has gone 2 an Extreeme + or -....=20
  80.         =20
  81.          If M#(I)=3DD#(I)
  82.            =20
  83.             ' If so Reset the Target Variable.....=20
  84.            =20
  85.             D#(I)=3D(Rnd(2)+1)*(-Sgn(D#(I)))
  86.          Else=20
  87.            =20
  88.             ' If not Try and Reach the Target Variable (D#) 4 next Time! =
  89.  =20
  90.            =20
  91.             If M#(I)<D#(I)
  92.                M#(I)=3DM#(I)+Rnd(1)+0.5
  93.             Else=20
  94.                M#(I)=3DM#(I)-Rnd(1)-0.5
  95.             End If=20
  96.            =20
  97.          End If=20
  98.         =20
  99.          ' Randomized amounts of falling speed....
  100.         =20
  101.          YV=3DRnd(YA)+1
  102.         =20
  103.          ' Add the X axis Movement Variable 2 the X axis Variable...
  104.         =20
  105.          X#(I)=3DX#(I)+M#(I)
  106.         =20
  107.          ' Check 4  X Over Screen Limits....
  108.         =20
  109.          If X#(I)>320
  110.             X#(I)=3DX#(I)-320
  111.          End If=20
  112.          If X#(I)<0
  113.             X#(I)=3D320+X#(I)
  114.          End If=20
  115.         =20
  116.          ' Check And C if Snow Has Landed...
  117.         =20
  118.          If Y#(I)+YV>YM-H(X#(I))
  119.            =20
  120.             ' See How High the snow is below the new Flake...
  121.            =20
  122.             If H(X#(I))>Rnd(4)+2
  123.                XV=3DRnd(2)-1
  124.                X#(I)=3DX#(I)+XV
  125.             End If=20
  126.            =20
  127.             ' The Dead SnowFlake...
  128.            =20
  129.             F Plot X#(I),YM-H(X#(I)),Z(I)
  130.            =20
  131.             ' Reset SnowFlake
  132.            =20
  133.             H(X#(I))=3DH(X#(I))+1
  134.             KEY#(I)=3D0
  135.             X#(I)=3DRnd(320)
  136.             Y#(I)=3D0
  137.            =20
  138.          Else=20
  139.             ' Plot if SnowFlake in Air...
  140.            =20
  141.             Y#(I)=3DY#(I)+YV
  142.             F Plot X#(I),Y#(I),Z(I)
  143.            =20
  144.          End If=20
  145.       Else=20
  146.         =20
  147.          ' Randomability Variable That a SnowFlake will Fall...  =20
  148.         =20
  149.          KEY#(I)=3DRnd(1000)
  150.         =20
  151.       End If=20
  152.    Next I
  153. Loop=20
  154.  
  155. Bye!!!!!!!
  156.  
  157. ------=_NextPart_000_0041_01BDD65C.2CACCF60
  158. Content-Type: text/html;
  159.     charset="iso-8859-1"
  160. Content-Transfer-Encoding: quoted-printable
  161.  
  162. <!DOCTYPE HTML PUBLIC "-//W3C//DTD W3 HTML//EN">
  163. <HTML>
  164. <HEAD>
  165.  
  166. <META content=3Dtext/html;charset=3Diso-8859-1 =
  167. http-equiv=3DContent-Type>
  168. <META content=3D'"MSHTML 4.72.3110.7"' name=3DGENERATOR>
  169. </HEAD>
  170. <BODY bgColor=3D#ffffff>
  171. <DIV><FONT color=3D#000000 size=3D2>Hey! My version don't contain =
  172. wind... and it=20
  173. don't Use Degree either... It seems 2 be faster!</FONT></DIV>
  174. <DIV><FONT color=3D#000000 size=3D2></FONT> </DIV>
  175. <DIV><FONT color=3D#000000 size=3D2>Hide On <BR>Screen Open=20
  176. 0,320,256,8,Lowres<BR>Flash Off <BR>Curs Off <BR>Cls 0</FONT></DIV>
  177. <DIV><FONT color=3D#000000 size=3D2></FONT> </DIV>
  178. <DIV><FONT color=3D#000000 size=3D2>C=3D2<BR>NU=3D100<BR>Dim=20
  179. X#(NU),Y#(NU),M#(NU),D#(NU),KEY#(NU),H(320),Z(NU)</FONT></DIV>
  180. <DIV><FONT color=3D#000000 size=3D2></FONT> </DIV>
  181. <DIV><FONT color=3D#000000 size=3D2>For I=3D0 To NU<BR>  =20
  182. X#(I)=3DRnd(320)<BR>   D#(I)=3DRnd(4)-2<BR>  =20
  183. Z(I)=3DRnd(6)<BR>Next I<BR>Colour 1,$444<BR>Colour 2,$777<BR>Colour=20
  184. 3,$999<BR>Colour 4,$BBB<BR>Colour 5,$DDD<BR>Colour 6,$FFF<BR>Colour=20
  185. 7,$FFF</FONT></DIV>
  186. <DIV><FONT color=3D#000000 size=3D2></FONT> </DIV>
  187. <DIV><FONT color=3D#000000 size=3D2>' level of ground... =
  188. <BR>YM=3D200<BR>' Speed of=20
  189. Descent... Maximum movement down<BR>YA=3D8</FONT></DIV>
  190. <DIV><FONT color=3D#000000 size=3D2></FONT> </DIV>
  191. <DIV><FONT color=3D#000000 size=3D2>Do <BR>   For I=3D0 To=20
  192. NU<BR>      <BR>      =
  193. '=20
  194. Randomablity Variable Being Used...  =
  195. <BR>      '=20
  196. Lower the 980 for More Snow at a time....!  =20
  197. <BR>      <BR>      If =
  198.  
  199. KEY#(I)>980<BR>        =20
  200. <BR>         ' The Unplot.... =
  201. Get Rid of=20
  202. the snow 2 B =
  203. Updated...<BR>        =20
  204. <BR>         F Plot=20
  205. X#(I),Y#(I),0<BR>        =20
  206. <BR>         ' Check if X axis =
  207. Movement=20
  208. has gone 2 an Extreeme + or -....=20
  209. <BR>        =20
  210. <BR>         If=20
  211. M#(I)=3DD#(I)<BR>         &n=
  212. bsp; =20
  213. <BR>            ' =
  214. If so=20
  215. Reset the Target Variable.....=20
  216. <BR>           =20
  217. <BR>           =20
  218. D#(I)=3D(Rnd(2)+1)*(-Sgn(D#(I)))<BR>      &=
  219. nbsp; =20
  220. Else =
  221. <BR>           =20
  222. <BR>            ' =
  223. If not=20
  224. Try and Reach the Target Variable (D#) 4 next Time!  =20
  225. <BR>           =20
  226. <BR>            =
  227. If=20
  228. M#(I)<D#(I)<BR>         &=
  229. nbsp;    =20
  230. M#(I)=3DM#(I)+Rnd(1)+0.5<BR>       &nb=
  231. sp;   =20
  232. Else=20
  233. <BR>           &nb=
  234. sp;  =20
  235. M#(I)=3DM#(I)-